Otherware/Otherware_1_SB_Development.iso/mac/developm/source/rclesrc.10/ircle sources/IRCGlobals.p

Text File | 1992-09-06 | 4.3 KB | 155 lines

{    ircle - Internet Relay Chat client    }
{    File: IRCGlobals    }
{    Copyright ⌐ 1992 Olaf Titz ([e-mail])    }

{    This program is free software; you can redistribute it and/or modify    }
{    it under the terms of the GNU General Public License as published by    }
{    the Free Software Foundation; either version 2 of the License, or    }
{    (at your option) any later version.    }

{    This program is distributed in the hope that it will be useful,    }
{    but WITHOUT ANY WARRANTY; without even the implied warranty of    }
{    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    }
{    GNU General Public License for more details.    }

{    You should have received a copy of the GNU General Public License    }
{    along with this program; if not, write to the Free Software    }
{    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.    }

unit IRCGlobals;
{ Contains global constants and variables }

interface
uses
    TCPTypes, TCPStuff, TCPConnections, MsgWindows;

type
    defaultType = record
            Port: integer;
            Server, Nick, username, userLoginName, autoExec: str255;
            notify: array[1..4] of boolean;
        end;
    defaultPtr = ^defaultType;
    defaultHndl = ^defaultPtr;        { Preferences }

    shortcutsType = array[1..10] of str255;
    shortcutsPtr = ^shortcutsType;
    shortcutsHndl = ^shortcutsPtr;    { Shortcuts }

    FSType = record
            fnt, siz: integer
        end;
    FSPtr = ^FSType;
    FSHndl = ^FSPtr;                { default font/size }

    Table = packed array[char] of char;
    TablePtr = ^Table;
    TableHndl = ^TablePtr;        { charset translation table }

const
    COSPACE = 10000;        { Workspace to allocate for Coroutines }
    LOFREEMEM = 20000;        { Memory checking lower (critical) bound }
    HIFREEMEM = 30000;        { Memory checking higher (uncritical) bound }
    MEMTIME = 30;            { Memory checking timeout (seconds) }

    DCC_CHAT_PREFIX = '=';

{ Error messages (STR#256 indexes) }
    E_NOSERVER = 1;        { Not connected }
    E_NOTARGET = 2;        { Not talking to a target }
    E_SFAILED = 3;            { Corresponding with ConnectionEvents }
    E_NSFAILED = 4;
    E_OFAILED = 5;
    E_CLOSING = 6;
    E_CLOSED = 7;

{ Connection status }
    S_CONN = 0;            { connected }
    S_OFFLINE = -1;            { offline }
    S_LOOKUP = -2;            { DNS lookup }
    S_OPENING = -3;            { connecting }

{ Alerts }
    A_INFO = 128;            { About box }
    A_TCPERR = 129;        { Cannot open TCP driver }
    A_QUIT = 131;            { Ask whether to quit }
    A_LOWMEM = 259;        { Memory shortage }
    A_OPKILL = 260;        { Operator kill }
    A_SSTAT = 261;        { Server connection status }

{ Dialogs }
    D_INFOPOP = 130;        { Popup status window }
    D_PREFS = 256;            { Preferences }
    D_SHCUTS = 257;        { Shortcuts }

{ Menus }
    M_F_OPEN = 1;
    M_F_CLOSE = 2;
    M_F_LOG = 4;
    M_F_FLUSH = 5;
    M_F_PREFS = 7;
    M_F_QUIT = 9;
    M_COMMANDS = 259;        { Commands menu }
    M_CO_JOIN = 1;
    M_CO_PART = 2;
    M_CO_LIST = 4;
    M_CO_WHO = 5;
    M_CO_QUERY = 7;
    M_CO_WHOIS = 8;
    M_CO_INVITE = 9;
    M_CO_KICK = 10;
    M_CO_AWAY = 12;
    M_CO_MSG = 13;
    M_SHCUTS = 261;        { Shortcuts menu }
    M_SH_DEFINE = 1;
    M_SH_FIRST = 2;
    M_FONT = 262;            { Fonts menu }
    M_FO_9 = 1;
    M_FO_10 = 2;
    M_FO_12 = 3;
    M_FO_14 = 4;
    M_FO_FIRST = 5;
    M_WINDOWS = 263;        { Windows menu }
    M_WI_CYCLE = 1;
    M_WI_MAIN = 2;
    M_WI_FIRST = 3;


var
{ general status vars }
    CL_VERSION: string;        { Version of this program }
    serverStatus: integer;    { Connection status: 0=ok, -1=not connected, or TCP error codes }
    validPrefs,                { Indicates whether preferences are set proper }
    QuitRequest,            { Will quit }
    flushing,                 { Ignore server output up to end of list }
    logging,                { Logging to file }
    inBackground,            { Running in background }
    notified                { User has got notfication from background }
    : boolean;
    sSocket: connectionIndex;    { Server connection }
    lastWindow: MWHndl;        { window las notice went in }
    readTimeout,            { timeout for TCP reading }
    idleTime: longint;        { time when last command sent }
    NFT: integer;            { number of DCC filetransfers in progress }

{ user vars }
    CmdChar: char;            { Command prefix }
    CurrentServer,             { server currently connected to }
    CurrentTarget,            { current target to talk to (corresponds to active window) }
    CurrentNick,             { Nickname }
    lastInvite,                { Channel to which got last invited }
    lastMsg                { Nick who sent last MSG }
    : str255;
    logfile: text;            { File to log to }

{ user preferences }
    default: defaultHndl;
    Shortcuts: shortcutsHndl;
    defFont: FSHndl;

    ISOEncode, ISODecode: TableHndl;


implementation
{ Global variables get initialized in IRCInit }
end.